home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 25
/
AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso
/
Magazin
/
Future-PD
/
Scripts
/
CS1_Fidgit_2.script
< prev
next >
Wrap
Text File
|
1998-05-11
|
341b
|
28 lines
FACE N|
:FIDGIT|
RND @MOVE 10|
IF @MOVE > 1 SKIPFIDGIT|
IF @MOVE = 0 FIDGIT1|
MOVE 2 0|
GOTO SKIPFIDGIT|
:FIDGIT1|
MOVE -2 0|
:SKIPFIDGIT|
FACE N|
PAUSE 2|
GOTO FIDGIT|
:WALKFORWARD|
GLOSET 0 0|
COORDS 2 @X @Y|
WALKTO 165 115 5|
FACE S|
GLOSET 0 -1|
IDLE|
:WALKBACK|
WALKTO @X @Y 5|
FACE N|
GOTO FIDGIT|
:WALKTODOOR|
WALKTO 359 131 4|
KILL|